home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / asmsrc / fatboysintro.lha / SCROLLER2.m
Encoding:
Text File  |  1999-09-27  |  5.9 KB  |  288 lines
  1.  
  2.  move.l    $04,a6
  3.  lea    gfxname,a1
  4.  jsr    -408(a6)
  5.  move.l    d0,gfxbase
  6.  move.l    d0,a0
  7.  move.l    50(a0),oldclist
  8.  move.l    #newclist,50(a0)
  9.  move.l    gfxbase,a6
  10.  move.l  #188,as
  11.  lea    bitmap,a0
  12.  move.l    #$01,d0
  13.  move.l    #336,d1
  14.  move.l    #200,d2
  15.  jsr    -390(a6)
  16.  move.l    #$60000,plane1
  17.  lea    rastport,a1
  18.  jsr    -198(a6)
  19.  move.l    #bitmap,r_bitmap
  20.  lea    rastport,a1
  21.  jsr    -48(a6)
  22.  move.l    #scrollm1,zeiger1
  23.  move.l    #scrollm,zeiger
  24.  move.l    #scrollm2,zeiger2
  25.  move.l    $6c,oldirq+2
  26.  move.l    #newirq,$6c
  27.  wait:
  28.  btst    #6,$bfe001
  29.  bne.s    wait
  30.  move.l    oldirq+2,$6c
  31.  move.l    gfxbase,a0
  32.  move.l    oldclist,50(a0)
  33.  move.l    $04,a6
  34.  move.l    gfxbase,a1
  35.  jsr    -414(a6)
  36.  move.w  #$8020,$dff096
  37.  rts
  38.  
  39.  **  eerste scroll **
  40.  newirq:
  41.  movem.l    d0-d7/a0-a6,-(sp)
  42.  move.l    gfxbase,a6
  43.  lea    rastport,a1
  44.  move.l    #04,d0
  45.  clr.l    d1
  46.  move.l    #0,d2
  47.  move.l    #68,d3
  48.  move.l    #336,d4
  49.  move.l    #76,d5
  50.  jsr    -396(a6)
  51.  
  52.  sub.b    #$01,rows1
  53.  bne.s    exit1
  54.  move.b    #2,rows1
  55.  lea    rastport,a1
  56.  move.l    #320,d0
  57.  move.l    #75,d1
  58.  jsr    -240(a6)
  59.  lea    rastport,a1
  60.  move.l    zeiger1,a0
  61.  move.l    #1,d0
  62.  jsr    -60(a6)
  63.  add.l    #1,zeiger1
  64.  cmp.l    #end1,zeiger1
  65.  blt.s    exit1
  66.  move.l    #scrollm1,zeiger1
  67.  exit1:
  68.  ;movem.l    (sp)+,d0-d7/a0-a6
  69.  
  70.  
  71.  **  derde scroll  **
  72.  move.l    gfxbase,a6
  73.  lea    rastport,a1
  74.  move.l    #01,d0
  75.  clr.l    d1
  76.  move.l    #0,d2
  77.  move.l    #166,d3
  78.  move.l    #336,d4
  79.  move.l    #196,d5
  80.  jsr    -396(a6)
  81.  
  82.  sub.b    #$01,rows2
  83.  bne.s    exit2
  84.  move.b    #8,rows2
  85.  lea    rastport,a1
  86.  move.l    #320,d0
  87.  move.l    #172,d1
  88.  jsr    -240(a6)
  89.  lea    rastport,a1
  90.  move.l    zeiger2,a0
  91.  move.l    #1,d0
  92.  jsr    -60(a6)
  93.  add.l    #1,zeiger2
  94.  cmp.l    #end2,zeiger2
  95.  blt.s    exit2
  96.  move.l    #scrollm2,zeiger2
  97.  
  98. exit2:
  99.  ;movem.l    (sp)+,d0-d7/a0-a6
  100.  **  tweede scroll **
  101.  move.l    gfxbase,a6
  102.  lea    rastport,a1
  103.  clr.l   d0
  104.  move.l  #01,d1
  105.  clr.l    d2
  106.  move.l    #85,d3
  107.  move.l    #336,d4
  108.  move.l    #161,d5
  109.  jsr    -396(a6)
  110.  
  111.  sub.b    #$01,rows
  112.  bne.s    exit
  113.  move.b    #30,rows
  114.  lea    rastport,a1
  115.  move.l    #00,d0
  116.  move.l    #160,d1
  117.  jsr    -240(a6)
  118.  lea    rastport,a1
  119.  move.l    zeiger,a0
  120.  move.l    #38,d0
  121.  jsr    -60(a6)
  122.  add.l    #38,zeiger
  123.  cmp.l    #end,zeiger
  124.  blt.s    exit
  125.  move.l    #scrollm,zeiger
  126. exit:
  127.     movem.l    (sp)+,d0-d7/a0-a6
  128.     rts
  129. oldirq:
  130.  jmp    $00000000
  131.  
  132. newclist:
  133.  dc.w    $0009,$fffe,$0096,$0020
  134.  dc.w    $000b,$fffe,$0180,$0000,$000b,$fffe,$0180,$0000
  135.  dc.w    $008e,$2c81,$0090,$f4c1,$0092,$0038,$0094,$00d0
  136.  dc.w    $0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
  137.  dc.w    $0100,$1200,$0180,$0000,$0182,$0ff0
  138.  dc.w    $00e0,$0006,$00e2,$0000
  139.  
  140.     dc.w $3807,$fffe,$0182,$0ff0
  141.     dc.w $6807,$fffe,$0180,$0003
  142.     dc.w $6907,$fffe,$0180,$0004
  143.     dc.w $6a07,$fffe,$0180,$0005
  144.     dc.w $6b07,$fffe,$0180,$0006
  145.     dc.w $6c07,$fffe,$0180,$0007
  146.     dc.w $6d07,$fffe,$0180,$0008
  147.     dc.w $6e07,$fffe,$0180,$0009
  148.     dc.w $6f07,$fffe,$0180,$000a
  149.     dc.w $7007,$fffe,$0180,$000b
  150.     dc.w $7107,$fffe,$0180,$000c
  151.     dc.w $7207,$fffe,$0180,$000d
  152.     dc.w $7307,$fffe,$0180,$000e
  153.     dc.w $7407,$fffe,$0180,$000f
  154.     dc.w $7507,$fffe,$0180,$000e
  155.     dc.w $7607,$fffe,$0180,$000d
  156.     dc.w $7707,$fffe,$0180,$000c
  157.     dc.w $7807,$fffe,$0180,$000b
  158.     dc.w $7907,$fffe,$0180,$000a
  159.     dc.w $7a07,$fffe,$0180,$0009
  160.     dc.w $7b07,$fffe,$0180,$0008
  161.     dc.w $7c07,$fffe,$0180,$0007
  162.     dc.w $7c07,$fffe,$0182,$0000
  163.     dc.w $7d07,$fffe,$0180,$0006
  164.     dc.w $7e07,$fffe,$0180,$0005
  165.     dc.w $7f07,$fffe,$0180,$0004
  166.     dc.w $8007,$fffe,$0180,$0003
  167.     dc.w $8107,$fffe,$0180,$0002
  168.     dc.w $8207,$fffe,$0180,$0000    ;color0 = $0000 (black)
  169.  
  170.  
  171.     dc.w $8207,$fffe,$0182,$0220
  172.     dc.w $8307,$fffe,$0182,$0440
  173.     dc.w $8407,$fffe,$0182,$0660
  174.     dc.w $8507,$fffe,$0182,$0880
  175.     dc.w $8607,$fffe,$0182,$0aa0
  176.     dc.w $8707,$fffe,$0182,$0cc0
  177.     dc.w $8807,$fffe,$0182,$0ee0
  178.     dc.w $8907,$fffe,$0182,$0ff0
  179.  
  180.  
  181.     dc.w $c107,$fffe,$0182,$0ff0
  182.     dc.w $c207,$fffe,$0182,$0ee0
  183.     dc.w $c307,$fffe,$0182,$0cc0
  184.     dc.w $c407,$fffe,$0182,$0aa0
  185.     dc.w $c507,$fffe,$0182,$0880
  186.     dc.w $c607,$fffe,$0182,$0660
  187.     dc.w $c707,$fffe,$0182,$0440
  188.     dc.w $c807,$fffe,$0182,$0220
  189.     dc.w $c807,$fffe,$0180,$0002
  190.     dc.w $c907,$fffe,$0180,$0003
  191.     dc.w $ca07,$fffe,$0180,$0004
  192.     dc.w $cb07,$fffe,$0180,$0005
  193.     dc.w $cc07,$fffe,$0180,$0006
  194.     dc.w $cd07,$fffe,$0180,$0007
  195.     dc.w $cd07,$fffe,$0182,$0ff0
  196.     dc.w $ce07,$fffe,$0180,$0008
  197.     dc.w $cf07,$fffe,$0180,$0009
  198.     dc.w $d007,$fffe,$0180,$000a
  199.     dc.w $d107,$fffe,$0180,$000b
  200.     dc.w $d207,$fffe,$0180,$000c
  201.     dc.w $d307,$fffe,$0180,$000d
  202.     dc.w $d407,$fffe,$0180,$000e
  203.     dc.w $d507,$fffe,$0180,$000f
  204.     dc.w $d607,$fffe,$0180,$000e
  205.     dc.w $d707,$fffe,$0180,$000d
  206.     dc.w $d807,$fffe,$0180,$000c
  207.     dc.w $d907,$fffe,$0180,$000b
  208.     dc.w $da07,$fffe,$0180,$000a
  209.     dc.w $db07,$fffe,$0180,$0009
  210.     dc.w $dc07,$fffe,$0180,$0008
  211.     dc.w $dd07,$fffe,$0180,$0007
  212.     dc.w $de07,$fffe,$0180,$0006
  213.     dc.w $df07,$fffe,$0180,$0005
  214.     dc.w $e007,$fffe,$0180,$0004
  215.     dc.w $e107,$fffe,$0180,$0003
  216.     dc.w $e207,$fffe,$0180,$0002
  217.     dc.w $e307,$fffe,$0180,$0000
  218.  
  219.  
  220.     dc.w $ffff,$fffe    ;copper-end must be $ffff,$fffe
  221.  
  222. scrollm:
  223. ;        12345678901234567890123456789012345678
  224.  
  225.  DC.B    "              THE FAT BOYS            "
  226.  dc.b    "            SHAKE HANDS WITH          "
  227.  dc.b    "        ------------------------      "
  228.  DC.B    "                 DAMAGE               "
  229.  DC.B    "                MEGALINE              "
  230.  DC.B    "                 DYNAX                "
  231.  DC.B    "             PENDLE EUROPA            "
  232.  DC.B    "                PHANTOM               "
  233.  DC.B    "               T.L.T.K.C.             "
  234.  DC.B    "              THE CARDINALS           "
  235.  DC.B    "           THE POWERCONNECTION        "
  236.  dc.b    "                PENTAGON              "
  237.  DC.B    "                THE REBEL             "
  238.  DC.B    "               SIGMA SOFT.            "
  239.  DC.B    "                                      "
  240.  DC.B    "                                      "
  241.  DC.B    "                                      "
  242.  DC.B    "                                      "
  243.  
  244. end:
  245.  even
  246.  
  247. scrollm1:
  248.  dc.b    "THIS DEMO IS MADE BY GOLDLEEK HOLLAND............"
  249. end1:
  250.  even
  251. scrollm2:
  252.  dc.b    " CONTACT OUR HQ PoBOX 48 8090 AA WEZEP HOLLAND"
  253.  dc.b    "........     "
  254. end2:
  255.  even
  256. zeiger:
  257.  dc.l    0
  258. zeiger1:
  259.  dc.l    0
  260. zeiger2:
  261.  dc.l    0
  262. oldclist:
  263.  dc.l    0
  264. gfxbase:
  265.  dc.l    0
  266. gfxname:
  267.  dc.b    "graphics.library",0
  268.  even
  269. bitmap:
  270.  dcb.w    4,0
  271. plane1:
  272.  dcb.l    20,0
  273. rastport:
  274.  dc.l    0
  275. r_bitmap:
  276.  dcb.l    30,0
  277. rows:
  278.  dc.b    2
  279.  even
  280. rows1:
  281.  dc.b    2
  282.  even
  283. rows2:
  284.  dc.b    2
  285.  even
  286. as:
  287.  dc.l    0
  288.